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LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
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MODULE LIB_MAIN ( ! Librarian command processor main routine 
LANGUAGE COL 13536) « 
IDENT = ‘'V04-000" 
MAIN = LIBRARIAN_§TART 
= 
BEGIN 


' 
SR RRE REAR AAAARAEAERAARR EERE REE EEE AREER EEE E TAREE RATER EREE 


‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

't ALL RIGHTS RESERVED. 

!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!® ON N ACCORDANCE WITH THE TERMS OF SUCH LICEN A H_THE 
!# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* Fanmerchntee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
% 
cf 
* 
2 
* 
* 
* 
* 
* 

'@ * 
t 
* 
* 
t 
2 
* 
% 
* 
* 


Sssss 
oO oO 
UEwn— 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; ae pokat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


DIGITAL ASSUMES NO RESPONSIBIL 
IS NOT SUPPLIED BY DIGITAL. 


. 1 
'® SOFTWARE ON EQUIPMENT WHICH 
is 
VRE RRA RRA RAARARA ARATE EKER 


'4¢ 
' 


! FACILITY: Library command processor 

i ABSTRACT: 

The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 
command. It utilizes the Librarian procedure set to perform 
the actual modifications’ to the Library. 

i ENVIRONMENT : 


VAX native, user mode. 


AUTHOR: Benn Schreiber, CREATION DATE: 11-June-1979 
MODIFIED BY: 


v03-001 CWHO001 CW Hobbs 19-Aug-1982 
Insert a gross kludge to allow RMSDEF.MDL to be converted to 
RMSDEF.MSG. MSG .LITERAL directives don't make very good 
BLISS field extraction macros. 


NA UE WN © OD NAUE WN $0 OD NAME WN @ OS OONA UE WN MOO DNAUS WO ODONAU SW 
ht tt a a 8 4 9 —s ss ss 4 ss = 8 49 2 ss ss 4s ss hs 9s © ss 2 2 ss ss ss ss ss os a ss os ss ss OOD OOO 
e 


PUPP BS BS BS BBE BE BE BANNING PDONIPONIPONONNOPY 2 2 2 OS OS OS OO 


LAeeRay 1$-300-1984 99:90:87 YAHEHL Biase Bz veiga7g, | Page |g 


H é } v02-003 BLS0029 Benn Schreiber 23-Dec-1980 
: Convert to message compiler. Add Library of shareable image 
i - symbol tables. 
62 1 
88 1 


voe: 


000" 


— SS — —) > 2 4 2s — — — 2» 4 2s 2 ts 


LIBRARY 
REQUIRE 
REQUIRE 


*SYSSLIBRARY: STARLET.L32'; 


"PREFIX"; 
*LIBDEF'; 


EXTERNAL ROUTINE 
_get_command, 


Lib_process_ 


FORWARD ROUTINE 


OWN 


Lib_handler; 


exitvalue 


cmd; 


: BLOCK C1) INITIAL 


(ss$_normal); 


CRBs QBAUSZ USAC 


4 


2 V nae 
p-1 LIBRAR.SRCJLIBRARIAN.B32;1 


'System data structure definitions 
‘Macro defs, etc. 
‘Librarian command interface definitions 


'Get a command Line 
‘Process command Line 


'Handler to pick up highest severity 


'Value to exit with 
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3 5 GLOBAL ROUTINE LIBRARIAN_START (arglist) : NOVALUE = 
4 5 BEGIN 
5 5 
6 5 lee 
7 55 
ee 22 ' FUNCTIONAL DESCRIPTION: 
90 055 This is the entry point to the Librarian command processor. It calls 
4 822 Lib.get_command to get the command Line and then processes it. 
g 56 
oe 2° CALLING SEQUENCE: 
39 2° Librarian_start(arglist) 
98 56 INPUT PARAMETERS: 
99 56 
56 
56 


arglist is the argument List passed from CLI 
talitag | I cis 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


' 

i) 

' 

' 

i 

i 

i 

i 

i 

i 

! 

i 

i 

i 

i 

i 

i 

i QUTPUT PARAMETERS: 
NONE 
i 

i 

i 

i 

i 

i 

i SIDE EFFECTS: 
NONE 
i 

i 


or: 


CAL 
status; 
wt | ~ 
-FP = Lib_handler; 'Set handler 
IF Lib beget command (arglist-4) ‘Parse the command 
Lib_process_cmd (); ‘And process it 


NOAUES WN $9 OONA UE WN 9 OONOAUES WN MO OONAUE WN OOWONOUS Wr 


f 


Be Se Se Se Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Ge Se Se Fe Se Se Se Se Se Se Se es Se Se Se Se Se Se Se e@eee 
ee ee ae ee ee ee De a ed ee ed ed od nd ed 

te Je ee we ee we eee eee ele lelelalelelolelelololelololololol aloo ol) 

WOOO OOO OW 000009000900 008 NINN INNS 


RoPoOPOPOPONOMONONOND 2 2 3 SS SS = BAOCOOCOCOOOCCOCO 


— (status = .exitvalue OR sts$m_inhib msg): ‘Exit with no message 
END !OF Librarian_start 


TITLE LIB_MAIN 
IDENT \v0&%-000\ 


-PSECT SOWNS,NOEXE,2 


00000001 00000 EXITVALUE: 
LONG 1 
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-EXTRN LIB_GET COMMAND 
-EXTRN LIB_PROCESS_CMD 


-PSECT S$CODES,NOWRT,2 


So 
So 


00 00000 -ENTRY LIBRARIAN_START, Save nothing : 

6D 0000v CF 9E 000¢ MOVAB LIB_HANDLER, (FP) : 

C DD 0000 PUSHL AP : 

00006 CF 01 FB 00009 CALLS #1, LIB_GET_COMMAND : 

05 50 £9 0000E BLBC =._«aRO. «18 : 

00006 CF 00 FB 00011 CALLS #0, LIB_PROCESS_C ; 

50 0000' CF 10000000 8F c9 90016 1$: BISL5 #2684 35256, EXITVALUE, STATUS ; 


; Routine Size: 33 bytes, Routine Base: S$CODE$ + 0000 


16 
vou=000" JSSeoc198s 95:00:52 petal sPLissc #2, y4007 sae 


- LIBRAR.SRCJLIBRARIAN.B52;1 


3 13) 8298 1 ROUTINE Lib_handler (sigargs, mechargs) = 

TB Ae g peo 

> 134 601 ! This routine is a condition handler called when ever a 

s 155 pone ! SIGNAL is done by the Librarian. It merely remembers the 

; i 060 ! most severe error for an exit status. 

, inv 0604 ' 

; in 0605 MAP 

: 139 BO06 sigargs : REF BBLOCK, 

: 140 060 mechargs : REF BBLOCK; 

; (141 0608 

: 146 0609 BIND 

; 13? Reid signame = sigargs ([chf$l_sig_name] : BBLOCK; 'Name of signal 

3 «6145 pei¢ IF NOT .signame 'If its an error signal 

> 146 0615 4 AND ((.signame Csts$v_severity] ! and severity is worse than it was 

s 147 0614 4 GEQU .exitvalue LSesSu sever ty) 

: 148 0615 3 OR .exitvalue Csts$v_severity]) ! or we haven't had any errors 

3 133 pets THEN exitvalue = .signame; ! then remember it for exiting 

3; 6151 0618 IF .signame Csts$v_severity] EQL sts$k_error 

; 136 0619 OR .signame Csts$v_severity] EQL sts$k_severe 

: 15 0620 THEN BEGIN 

3: «6154 0621 sigargs(chf$l_sig_args] = .sigargs(chf$l_sig_args] - 2; 'Decrement PC/PSL pair 

; Te bese 3 Sputmsg(magveces igargsicht{S\_sig_args); ‘Output the message 

; 128 Be87 3 mechargs Cchf$l_mch_savr0] = .signame OR sts$m_inhib_msg; !Set inhib_msg in return RO 
3 138 Rese 3 Temporary code to set inhib_msg in all messages in the signal vector 

: 160 0627 4 BEGIN 

: «161 0628 4 LOCAL 

3 16¢ sq) 4 ptr; 

3; 0630 4 

3; 164 0631 4 IND — : 

; 0636 4 sigargvec = signame : VECTORC,LONG); 

; 166 0633 4 

; 167 0634 4 a4 = 0; é ‘ . 

; 168 0635 4 HILE sper LSSU .sigargsCchf$l_sig_args] 'While there are more args 

: 169 0636 5 DO BEGI 

: 170 0637 5 ND 

3 if be38 : cursigname = sigargvec(.ptr] : BBLOCK; !Name the current message 

3 178 0640 5 sigargvec(.ptr] = .si prquert peri OR sts$m_inhib_msg; !Set inhib in current msg 
: 174 0641 5 IF -curs ignemelstssu. ac_no) LEQ 1 ‘If this is RMS message (or system message) 
, We 0642 6 THEN BEGI 

; 176 0643 6 

e tre 644 6 I+ 

; 178 645 6 ! GROSS KLUDGE - When RMSDEF.MDL was converted to RMSDEF.MSG, the a 

: 179 0646 6 ! RMSSV_STVSTATUS was defined as a literal - this works for MACRO-32, but 

; 180 0647 6 ! BLISS needs more. We therefore give BLISS what it wants. When the MESSAGE/SDL 

: 13) pose ? is made smarter this will die with another obscure message. 

: 183 0650 § IF curs igname(0.rasSv_stustetus. 1.0) ! with an STV status 

: «184 651 THEN BEGI : ee ra 
: «185 036 7 sigargvec(.ptr+1] = .sigargvec(.ptr+1] OR sts$m_inhib_msg; !Set inhib in it 
3: 186 0653 7 per = .ptr + 2; 'Skip two longwords 

: 187 0654 7 ND 


©OwOcw 


wOO000O0MC 
VFWN— 


$2 LF 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
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oooo 


WNr—o 


vw 
oo 


02 


04 


01 
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ELSE ptr = .ptr + 1; 
END 
ELSE ptr = 
END; 
EN 
IF .s grene sts3v_sever 
THEN BEGIN 


D: 
sigargstchf$l_sig_args] = .sigargs(chf$l_si ] + 2; 
° ts a ; ity] fa stssh.efroe 


SETUNWIND(ZREF(1)); 
RETURN ss$_continue 


END 
ELSE RETURN ss$_resignal 
END 


~ RETURN ss$_resignal; 
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!Otherwise just skip one 

'Not RMS, skip msg + count + lw of count 


!Of hack to set inhib_msg 


‘Unwind to caller 


nal to get the error printed 
b_handler 


-EXTRN SYSSPUTMSG 


003C 00000 LIB_HANDLER: 
-WORD Save R2,R3,R4,R5 
55 0000" CF 9€ 00002 OVAB EXITVALUE, R5 
5é 04 ¢2 00007 SUBL2 #4, SP 
53 04 AC DO OOOOA VL SIGARGS, R3 
52 04 A3 9E 0000 MOVAB 4(R3), R2 
12 62 €8 0001 LBS (R2), 2 
65 03 00 EF 00015 EXTZV #0, #3, EXITVALUE, RO 
62 03 00 ED OO01A CMP7V #0. #3. (R2), RO 
03 1& OOO1F BGEQU§ 1$ 
03 65 €9 00021 BLBC  EXITVALUE, 2$ 
65 62 DO 00024 1$: MOVL (R2), EXITVALUE 
54 D4 00027 2$: CLRL = R4& 
62 03 00 ED 00029 CMPZ7V #0, #3, (R2), #2 
04 12 O00¢¢ BNEQ 3$ 
54 06 00030 INCL  R4 
07 11 00032 BRB 4$ 
62 03 00 ED 00034 3s: CMPZV #0, #3, (R2), #4 
6F Ig 00039 BNEQ 
63 02 ¢ 00038 4$: SUBL2 #2, (R3) 
7E 7C O003E CLRO. 0 = (§P) 
43 D4 00040 CLRL -(SP) 
53 DD 9004¢ PUSHL R3 
000000006 00 04 FB 4 CALLS #4, SYSSPUTMSG 
50 08 AC dO 00048 MOVL mE CHARGS RO 
AO 62 10000000 i C9 O004F BISL3 #268435456, (R2), 12(RO) 
0 D4 00058 CLRL 
63 30 D1 90034 5$: CMPL = PTR, -(R3) 
1 16 0050 BoE GY 
03 A240 10 C8 0005F BISL2 #16 3(R2)CPTRI 
02 A240 DF 00064 PUSHAL 2(R2)(PTRI 
9E oc 99 +4 he CMPZV #0, #12, a(SP)+, #1 
15 14 0006D BGTR 
6240 OF Boss PUSHAL (R2)CPTRI 
OA 9 OF E1 000 : BBC 14, a(SP)+, 6$ 
07 A24 10 ¢8 0007 BISL2 #16, 7(R2)CPTRI 


B 1 
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50 02 ¢O 0078 ADDL2 #2, PTR : 0653) 
DA 11 7 BRB 5$ : 0630 
0 d6 0080 6% INCL PTR 7 0655. 
b8 11 000 BRB 5$ 3 0641) 
51 04 A246 pd 09 7$ MOVL 4(R2) (PTR). R1 3 0657) 
0 2 A140 F 089 MOVAB g(R1) PTR], PTR : 
CA 11 0008 BRB $ > 0635) 
63 2 CO 00090 8s: ADDL2 #2, (R3) > 0660 
14 4 €9 0009 BLBC R4, 9$ 7 0661. 
E D4 0096 CLRL 30s = ( §P) : 0663 | 
04 AE 01 DO 0009. MOVL wi, 4&(SP) : 
04 AE 9F 0009C PUSHAB 4(§P) : | 
000000006 00 02 FB 0009F CALLS #2, SYSSUNWIND : 
50 01 DO 000A MOVL #1, RO ; 0666. 
04 000A RET : 
50 0918 8F 3C OODAA 9$: MOVZWL #2328, RO 7 0669 | 
04 OOOAF RET 3 0670 
; Routine Size: 176 bytes, Routine Base: S$CODE$ + 0021 } 
: 206 0671 1 | 
3 soe Bere 1 END ' Of module 
: 206 0673 0 ELUDOM 
| 
-EXTRN SYSS$UNWIND 
; PSECT SUMMARY 
: Name Bytes Attributes | 
: $SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
> SCODES 209 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
| 
: Library Statistics | 
; oy at Eee eee cae 5 Py ie (oe ee Symbols -------- Pages Processing | 
; File Total Loaded Percent Mapped Time 
> _$295$DUA28:(SYSLIBISTARLET.L32;1 9776 36 0 581 00:01.0 
3 COMMAND QUALIFIERS 


ls BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LIBRARIAN/OBJ=OBJ$:LIBRARIAN MSRC$:LIBRARIAN/UPDATE=(ENH$:LIBRARIAN) 


en . — 


Re Oe Oe Be Oe Se Be Be Se Se Be Fe Be Be Se Se Be Be FH Se Sete ee Ce Pe Se Se Se Se Ge Se Ge Ge Ge Se Se Se Ge Se Se Se Se Se Se ee Se Se Se Se Se ee Se Se Se Se tease 


RU" 


Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
Memo 


209 


8 


4 


tt 4 data bytes 


33 


ry Used: 117 pages 
Cone itetien Conpiete” 
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